home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Technology Seed / ATS July '97.toast / Mac OS 8 / Docs-Interfaces-Libs / Contextual Menus / ContextualMenu.p < prev    next >
Encoding:
Text File  |  1997-05-16  |  1.7 KB  |  71 lines  |  [TEXT/MPS ]
  1. {$IFC UNDEFINED UsingIncludes}
  2. {$SETC UsingIncludes := 0}
  3. {$ENDC}
  4.  
  5. {$IFC NOT UsingIncludes}
  6.  UNIT ContextualMenu;
  7.  INTERFACE
  8. {$ENDC}
  9.  
  10. {$IFC UNDEFINED __CONTEXTUALMENU__}
  11. {$SETC __CONTEXTUALMENU__ := 1}
  12.  
  13. {$I+}
  14. {$SETC ContextualMenuIncludes := UsingIncludes}
  15. {$SETC UsingIncludes := 1}
  16.  
  17. {$IFC UNDEFINED __APPLEEVENTS__}
  18. {$I AppleEvents.p}
  19. {$ENDC}
  20. {$IFC UNDEFINED __EVENTS__}
  21. {$I Events.p}
  22. {$ENDC}
  23. {$IFC UNDEFINED __MENUS__}
  24. {$I Menus.p}
  25. {$ENDC}
  26.  
  27. {$PUSH}
  28. {$ALIGN MAC68K}
  29. {$LibExport+}
  30.  
  31.  
  32. CONST
  33.     _ContextualMenuDispatch        = $AA72;                        {  Contextual Menu Trap Number }
  34.  
  35.                                                                 {  Gestalt Selectors  }
  36.     gestaltContextualMenuAttr    = 'cmnu';
  37.     gestaltContextualMenuPresent = 0;
  38.     gestaltContextualMenuTrapAvailable = 1;
  39.  
  40.                                                                 {  Values indicating what kind of help the application supports  }
  41.     kCMHelpItemNoHelp            = 0;
  42.     kCMHelpItemAppleGuide        = 1;
  43.     kCMHelpItemOtherHelp        = 2;                            {  Values indicating what was chosen from the menu  }
  44.     kCMNothingSelected            = 0;
  45.     kCMMenuItemSelected            = 1;
  46.     kCMShowBalloonSelected        = 2;
  47.     kCMShowHelpSelected            = 3;
  48.  
  49. FUNCTION InitContextualMenus: OSStatus;
  50.     {$IFC NOT GENERATINGCFM}
  51.     INLINE $7001, $AA72;
  52.     {$ENDC}
  53. FUNCTION IsShowContextualMenuClick({CONST}VAR inEvent: EventRecord): BOOLEAN;
  54.     {$IFC NOT GENERATINGCFM}
  55.     INLINE $7002, $AA72;
  56.     {$ENDC}
  57. FUNCTION ContextualMenuSelect(inMenuRef: MenuRef; inGlobalLocation: Point; inBalloonAvailable: BOOLEAN; inHelpType: UInt32; inHelpItemString: Str255; {CONST}VAR inSelection: AEDesc; VAR outUserSelectionType: UInt32; VAR outMenuID: SInt16; VAR outMenuItem: UInt16): OSStatus;
  58.     {$IFC NOT GENERATINGCFM}
  59.     INLINE $7003, $AA72;
  60.     {$ENDC}
  61. {$ALIGN RESET}
  62. {$POP}
  63.  
  64. {$SETC UsingIncludes := ContextualMenuIncludes}
  65.  
  66. {$ENDC} {__CONTEXTUALMENU__}
  67.  
  68. {$IFC NOT UsingIncludes}
  69.  END.
  70. {$ENDC}
  71.